VERSION 5.00
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Begin VB.Form RInscritosServicio 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Nombre"
   ClientHeight    =   4695
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7455
   Icon            =   "RInscritosServicio.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4695
   ScaleWidth      =   7455
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VB.OptionButton OptCanceladas 
      Alignment       =   1  'Right Justify
      Caption         =   "Ventas Canceladas"
      Height          =   255
      Left            =   2520
      TabIndex        =   5
      Top             =   2280
      Width           =   2055
   End
   Begin VB.OptionButton OptXCobrar 
      Alignment       =   1  'Right Justify
      Caption         =   "Ventas por cobrar"
      Height          =   255
      Left            =   2520
      TabIndex        =   4
      Top             =   2760
      Width           =   2055
   End
   Begin VB.OptionButton OptTodas 
      Alignment       =   1  'Right Justify
      Caption         =   "Todos las ventas"
      Height          =   255
      Left            =   2520
      TabIndex        =   3
      Top             =   1800
      Value           =   -1  'True
      Width           =   2055
   End
   Begin SICCS.UclServicio UclSer 
      Height          =   315
      Left            =   240
      TabIndex        =   0
      Top             =   720
      Width           =   6975
      _extentx        =   12303
      _extenty        =   556
   End
   Begin MSForms.CommandButton CmdCancelar 
      Height          =   375
      Left            =   4080
      TabIndex        =   2
      Top             =   4080
      Width           =   1455
      Caption         =   " Cancelar"
      PicturePosition =   327683
      Size            =   "2566;661"
      Picture         =   "RInscritosServicio.frx":058A
      Accelerator     =   67
      FontHeight      =   165
      FontCharSet     =   0
      FontPitchAndFamily=   2
      ParagraphAlign  =   3
   End
   Begin MSForms.CommandButton CmdAceptar 
      Height          =   375
      Left            =   1920
      TabIndex        =   1
      Top             =   4080
      Width           =   1455
      Caption         =   " Imprimir"
      PicturePosition =   327683
      Size            =   "2566;661"
      Picture         =   "RInscritosServicio.frx":06E4
      Accelerator     =   73
      FontHeight      =   165
      FontCharSet     =   0
      FontPitchAndFamily=   2
      ParagraphAlign  =   3
   End
End
Attribute VB_Name = "RInscritosServicio"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub CmdAceptar_Click()
    
    Dim subtitulo_reporte As String
    
    Dim s As ClsSQL
    Set s = New ClsSQL
    s.setCampos Array(ser_id, ser_nombre, cli_nit, cli_nombre, ins_ci, ins_nombre, BooleanToSiNoSql(tra_cancelado, True))
    s.setTablas Array(tin, ser, cli, ins, tra, cue)
    s.setCondiciones Array(tin_tra_id & "=" & tra_id, _
                           tin_ins_id & "=" & ins_id, _
                           tra_cli_id & "=" & cli_id, _
                           tra_cue_id & "=" & cue_id, _
                           cue_ser_id & "=" & ser_id)
    s.setOrden Array(ser_nombre, cli_nombre, ins_nombre)
    
    subtitulo_reporte = "DE TODAS LAS VENTAS"
    
    If UclSer.servicio.codigo <> "" Then
        s.agregarCondicion ser_id & "=" & UclSer.servicio.codigo
        subtitulo_reporte = subtitulo_reporte & ""
    End If
    If OptCanceladas.value Then
        s.agregarCondicion tra_cancelado & "=" & formatBoolBD("1")
        subtitulo_reporte = subtitulo_reporte & " CANCELADAS"
    End If
    If OptXCobrar.value Then
        s.agregarCondicion tra_cancelado & "=" & formatBoolBD("0")
        subtitulo_reporte = subtitulo_reporte & " POR COBRAR"
    End If
    
    s.sSelect
    
    If RReporte2.cargarParametros(s.cadena, "rpt_inscritos", "INSCRITOS POR SERVICIOS", Strings.UCase(GUsuario.nombre_completo), False) Then
        RReporte2.pasarParametros2 Array(Array(rptpar_cab_nombre_camara, GParametros.nombrecamara, "2"), _
                                         Array(rptpar_cab_ciudad_pais, GParametros.ciudad & " - " & GParametros.pais, "2"), _
                                         Array(rptpar_cab_nit, GParametros.nit, "2"), _
                                         Array(rptpar_subtitulo, subtitulo_reporte, "2") _
                                   )
        mostrarForm RReporte2
    End If
    
End Sub

Private Sub CmdCancelar_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    UclSer.setTamano 6975, 3075
    UclSer.cargarServicios True
End Sub
